APPENDIX A 



/ 



* 

* U.S. Patent Pending. Copyright 1999, 2000 Yahoo! Inc., 

* 3420 Central Expressway, Santa Clara, California U.S.A. 
* 

* ALL RIGHTS RESERVED. 
* 

* This computer program is protected by copyright law and 

* international treaties. Unauthorized reproduction or 

* distribution of this program, or any portion of it, may 

* result in severe civil and criminal penalties, and will 

* be prosecuted to the maximum extent possible under the law. 
* 

*************************** 

/************************************************************ 

* Exception handling 

************************************************************/ 
function rmi_handleErr,or (err, url, line) 

{ 

// alert ('BAD: \n' + err + 1 .\n' + url + • \nline no: ' + line); 

// window . status = 'BAD: \n' + err + • .\n* + url + '\nline no: ' + line; 

window . status = "Javascript: Done (" + line + " ) " ; 

return true; // error is handled 

} 

window . onerror = rmi_handleError ; 

/************************************************************ 

* Globals 

************************************************************/ 

var rmi_Vars = " /rmivars%3f target=_top" ; 

var rmi_FramesetTagCounter = 0 ; 

var rmi_CookieDomain = ".yahoo.com"; 

// delete the 1st character, <. 

rmi_FrameWrapper = rmi_FrameWrapper . substring ( 1, rmi_FrameWrapper . length) ; 

/*******★**★********★*******★********* 

* Translate a string, then write to the browser. 
************************************* 

function rmi_writeln (obj , str) 

{ 

var newStr; 

if (arguments . length ==2) { 
newStr = rmi_xlate ( str) ; 

if (obj == document && (typeof document . layers != "undefined") 

ScSc (typeof document . layers [' rmilayer • ] != "undefined") ) 
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document . layers [ ' rmilayer 1 ] . document . writeln (newStr) ; 

else 

obj . writeln (newStr) ; 

} else { 

newStr = rmi_xlate (ob j ) ; // for backward compatibility with hseds 
document . writeln (newStr) ; 

} 

} 

function rmi_wri te (obj , str) 

{ 

var newStr; 

if (arguments . length ==2) { 
newStr = rmi_xlate (str) ; 

if (obj == document && (typeof document . layers != "undefined") 

&& (typeof document . layers [' rmilayer ' ] <= "undefined") ) 
document . layers [ ' rmilayer ' ] . document . write (newStr) / 

else 

obj . write (newStr ) ; 

} else { 

newStr = rmi_xlate (ob j ) ; // for backward compatibility with hseds 
document .write (newStr) ; 

} 

} 

/**************************** 

* String utilities 
*****************^ 

function rmi_startsWith (f ull , sub) 

{ 

var fullLower = full . toLowerCase ( ) ; 
var subLower = sub . toLowerCase ( ) ; 
var index = fullLower . indexOf ( subLower ) ; 
return index ? false : true; 

} 

function rmi_endsWith (f ull , sub) 

{ 

var fullLower = full . toLowerCase () ; 
var subLower = sub. toLowerCase () ; 

var offset = fullLower . length - subLower . length; 
if (offset < 0) return false; 

var index = fullLower . indexOf ( subLower , offset); 
return ( index==of f set ) ? true : false; 

} 

function rmi_endsExactlyWith ( f ull , sub) 

{ 

var offset = full. length - sub. length; 
if (offset < 0) return false; 

var index = full . indexOf (sub, offset); 
return ( index==of f set ) ? true : false; 
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} 

/* gets the port of an URL */ 
function rmi_getPort (url ) 

{ 

var host = rmi_getHost (url ) ; // get "host:port" 

var begin = host . indexOf ( " : " ) ; 

if (begin == -1 | | (host. length - begin) < 2) // e.g. length of ' :80' 

{ 

return (rmi_getProtocol (url) == "https") ? "443" : "80" ; 

} 

else 

{ 

return host . substring (begin+1 , host . length) ; // +1 for *:' 

} 

} 

/ * gets the protocol of an URL */ 
function rmi_getProtocol (url) 

{ 

var index - url . indexOf ( " : // " ) ; 
return url . substring ( 0 , index); 

} 

/* http: //HOST/whatever 

* return HOST 
*/ 

function rmi_getHost (url ) 

{ 

var end = url . indexOf (" ://"); 
var next = end + 3 ; 

end = url . indexOf ("/" , next); 
if (end == -1) end = url. length; 
return url . substring (next, end); 

} 

/* http: //HOSTNAME : port /whatever 

* return HOSTNAME 
*/ 

function rmi_getHostname (url ) 

{ 

var host = rmi_getHost (url ) ; // get "host :port" 

var index = host . indexOf ( " : " ) ; 

if (index == -1) 
return host; 

else 

return host . substring ( 0 , index); 

} 



/* http: //host/FILE 
* return FILE 
*/ 

function rmi_getFile (url ) 

{ 
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var end = url . indexOf ("://") ; 
var next = end + 3 ; 

end = url . indexOf { " / " / next); 

if (end == -1) 
return "/" ; 

else 

return url . substring (end, url . length) ; 

} 

/* PROTOCOL: //HOST/ FILE 
* return URLRoot == PROTOCOL : //HOST 

*/ 

function rmi_ge t URLRoot (url ) 

{ 

var protocol = rmi_get Protocol (url ) ; 
var host = rmi_getHos t (url ) ; 
return protocol + "://" + host 

} 

function rmi_dirname ( f ull ) 

{ 

var dir = full; 

// Remove cgi parameters (e.g. " ?kl=vl&k2=v2 . . . " ) 
// because the parameters might have '/' 

var ind - dir . indexOf ('?'); 

if ( ind >= 0 ) dir = dir . substring ( 0 , ind); 

ind - dir . lastlndexOf ( • / 1 ) ; // search from right 

if (ind == -1) return ""; // no slash 

if (ind « 0) return "/" ; // root 

if ( rmi_endsExactlyWith (dir . substring ( 0 , ind+1) , "://") ) 
ind = dir. length; 



} 



return dir . substring ( 0 , ind); 



/* Trim leading & ending quotes 
*/ 

function rmi_trimQuotes (str) 

{ 

var first = str . charAt ( 0 ) ; 

if (first == * " ■ ) return ( str . substring ( 1 , str . length- 1) ) ; 
if (first == 'V') return (str . substring ( 1 , str . length- 1 )) ; 
return str; 

} 

/* Trim leading & ending spaces 
*/ 

function rmi_trim ( str ) 

{ 

if (typeof str == "undefined") return " " ; 
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var start = 0 ; 

var end = str. length; 

for (var i=0; i < str. length; ++i) 



if (str . charAt (i ) 

start = i; 
break; 



i i 



) continue; 



for (var i = str . length- 1 ; i >= 0 ; - - i ) 

{ 

if (str . charAt ( i) == ' ') continue; 

end = i + 1; 
break; 



} 



return str . substring ( start , end) ; 



* Normalize URL 
***************************^ 

function rmi normal i z eURL ( in url) 



{ 



var url = in_url . toString ( ) ; 
var first = url . charAt ( 0 ) ; 

if (first == ' " ' ) url = url . subs tring ( 1 , url . length- 1) ; 



var ret = url; 

if ( rmi_startsWith(url, "http : // " ) ) 
ret = url; 

lse if ( rmi_startsWith (url, "https : // " ) ) 

ret = url; 
lse if ( rmi_startsWith (url , "/") ) 

ret = rmi_getURLRoot (rmi_BaseURL) + url; 
lse if ( rmi_startsWith (url , n #") ) 

ret = document . location + url; 

lse // relative 

var dir = rmi_dirname (rmi_BaseURL) ; 
ret = dir + "/" + url; 



return ret ; 
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y************************************************************ 

* Translate a URL (in the case of form action) 

* If the incoming code is the form of location=url 

* then we return location=rmi_xlateURL (url) 

************************************************************/ 
function rmi_xlateAct ion (action_url) 

{ 

var ret - 11 n ; 

var url = action_url . toString ( ) ; 

if ( rmi_startsWith(url, " location= " ) ) { 

var new_loc = url . substring (url . indexOf ( " = " ) +1 , url. length); 

ret = location.— + rmi_xlateURL (new_loc) + »•»; 
} else { 

ret = rmi_xlateURL (url) ; 

} 

if (rmi_JsDebug . indexOf ( 11 , rmi_xlateAct ion, " ) != -1) 

alert ("rmi xlateAction: old: " + action url + "\n" + "new: " + ret) 



} 



return ( ret ) ; 



/************************************************************ 

* Translate a URL 

* Note: if url is already starts with rmi proxy url it will 

* not be translated again. 
***************************************** 

function rmi_xlateURL ( in_url ) 

{ 

var ret = 11 " ; 

var url = in_url . toString () ; 

var first = url . charAt ( 0 ) ; 

if (first == ■ "') url = url . substring ( 1 , url . length- 1 ) ; 

if (first == '\'') url = url . substring ( 1 , url . length- 1 ) ; 

// Ignore javascript: 

if ( rmi_startsWith (url , "javascript:") ) 
return url; 

url = rmi_normalizeURL (url) ; 

if ( rmi_startsWith (url , rmi_ProxyURL) || 

rmi_startsWith (url , rmi_SecureProxyURL) || 
rmi_endsWith (url , ".jpg") || 
rmi_endsWith (url , ".jpeg" ) || 
rmi_endsWith (url , ".gif") 

) 

{ 

return url; 

} 

/* 

* Collapse the file part of an URL 
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*/ 

var urlroot = rmi_getURLRoot (url ) ; 

var file = pathCollapse (rmi_getFile (url ) ) ; 

ret = urlroot + file; 

if ( rmi_startsWith(url / "https : //" ) ) 
ret = rmi_SecureProxyURL + ret; 

else 

ret = rmi_ProxyURL + ret; 
if (rmi_FrameWrapperMode && rmi_UrlTarget =- "_top") // onTop & wrapper 

mode 

ret = rmi_appendToUrl (ret , rmi_Vars) ; 

if ( rmi_JsDebug . indexOf ( " , rmi_xlateURL, " ) !- -1) 

alert ( M rmi_xlateURL : \n" + "in_url: " + in_url + "\n" + "ret: " + ret + 

"\n") ; 

return ret; 

} 

* Get original (before RMI) location property (href, host, etc) 
********************** 

function rmi_getOriginal ( loc , prop) 

{ 

var origUrl = " " + loc ,- 

var url = " " + loc ; 

var index = url . indexOf ( " /rmi/ " ) ; 

var ret = " " ; 

if (index != -1) 

origUrl = url . substring ( index+5 , url . length) ; // Get string after 

"/rmi/" 

if (prop == "host") 

ret = rmi_getHostname (origUrl ) + " : " + rmi_getPort (origUrl ) ; 
else if (prop == "hostname") 

ret = rmi_getHostname (origUrl ) ; 
else if (prop == "port") 

ret = rmi_getPort (origUrl) ; 
else if (prop == "pathname") 

{ 

var path = rmi_getFile (origUrl ) ; 

ret = (path. indexOf ("?") == -1 ) ? path : path . substring ( 0 , 
path. indexOf ("?")); 
} 

else if (prop == "search") 

{ 

var path = rmi_getFile (origUrl) ; 

ret = (path. indexOf ("?" ) == -1) ? " " : path . subs tring (path . indexOf ("?") , 
path . length) ; 

} 

else // location, location . href , & all others 

ret = origUrl ; 
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// Remove RMI var string (e.g. /rmivars%3f . . . ) . 
// KEEP text before AND after RMI var strings 

var rmiVarStr = "/rmivars"; 

var rmiVarStrLen =9; // length of "/rmivars?" for IE 

var i_rmiVarStr = ret . indexOf (rmiVarStr ) ; 

var head = (i_rmiVarStr == -1) ? ret : ret . substring ( 0 , i_rmiVarStr) ; 
var tail = 

if (i_rmiVarStr != -1) // RMI var string exists 

{ 

var il = ret . indexOf ( " ? " , i_rmiVarStr + rmiVarStrLen); 
var i2 = ret . indexOf ("#" , i_rmiVarStr + rmiVarStrLen); 

if (il != -1) tail = ret . substring ( il , ret. length); 
else if (i2 ! = -1) tail = ret . substring (i2 , ret . length) ; 

} 

return head + tail; 

} 

/************************************************************ 

* Get original (before RMI) document . domain property 
****************************************** 

function rmi_getOriginalDomain ( ) 

{ 

var origUrl = " " + window . location; 

var url = origUrl ; 

var index = url . indexOf (" /rmi/ ") ; 

var ret = " " ; 

if (index ! = -1) 

origUrl = url . substring ( index+5 , url . length) ; // Get string after 

"/rmi/ " 

ret = rmi_getHostname (origUrl ) ; 

// Remove RMI tail string (e.g. /rmivars%3f . . . ) 
var rmiTail = " /rmivars %3 f " ; 

ret = (ret . indexOf (rmiTail ) -1) ? ret : ret . substring ( 0 , 

ret . indexOf (rmiTail) ) ; 

return ret; 

} 

/************************************************************ 

* Return a frame object 

************************************************************/ 
function rmi_getFrame (win, index) 

{ 

if ( ! rmi_FrameWrapperMode) return (win . frames [index] ) ,* 
// FrameWrapperMode from here on. . . 
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} 



if ( (typeof index) == "number") 

{ 

if (win == top) 

return (win . frames [index+1] ) ; // +1 due to Yahoo's extra frame 

else 

return (win . frames [index] ) ; 

} 

else // string & other types 

return (win . frames [index] ) ; 



/************************************************************ 

* Get the current dimension of the RMI bar 
* 

* h = rmi_getBarDimensions ( "height " ) 
* 

* <FUTURE> w = rmi_getBarDimensions ( "width" ) 
* 

*********************************************** 
function rmi_getBarDimensions (dimType) 

{ 

var doc; 

var defaultRet =50; 

if (top . frames . length == 0) // non-frame site 

doc = document ; 

else 

{ 

// doc = top . frames [0] .document; 
return defaultRet; 

} 

if ( window. navigator . appName . toLowerCase (). indexOf ( "microsoft " ) != -1 ) 
{ 

// IE 

if (typeof doc . all . rmi_south_gif == "undefined") 
return defaultRet; 

else 

{ 

if (dimType == "height") 

return doc . all . rmi_south_gif . of f setTop ; 

else 

return defaultRet; 

} 

} 

else 

{ 

// netscape 

if (typeof doc . rmi_south_gif == "undefined") 
return defaultRet; 

else 

{ 



9 



if (dimType == "height") 

return doc . rmi__south_gif . y / 

else 

return defaultRet; 

} 

} 

return defaultRet; // no match (shouldn't be here) 

} 

* Translate the options before opening a window (e.g. window. open) 
**★****★★***★**★****★***★*★★★*★**★**★* 

function rmi_xlateWinOpt (opt ions ) 

{ 

var tokens = opt ions . split ( " , " ) ; 

var ret = " " ; 
m for (var i=0; i < tokens . length; ++i) 

5f var pair = tokens [i] . split (" = "); 

GM var key = rmi_trim (pair [0] ) ; 

01 var val = rmi_trim (pair [1] ) ; 

Hi if (key == "height") 

Si { 

i.\ var offset = rmi_getBarDimensions (key) ; 

%. if (val == "") val = "0"; // if no height value! 

~ val = " " + (parselnt (val ) + offset) ; 

CI if (i ! = 0) ret += " , " ; 

Q if (val == "") // if no value 

ret += key; 

else 

ret += key + " = " + val; 

} 

return ret ; 

} 

* Open a window (using a window object from 1st argument) 
************************************** 

function rmi_winob j_open (winob j , url, target, options) 

{ 

//alert (url) ; 
//alert (target ) ; 
//alert (opt ions ) ; 

var win; 



if (arguments . length == 2) 

win = winobj . open ( rmi_xlateURL (url ) ) ; 
else if (arguments . length == 3) 
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win = winobj . open ( rmi_xlateURL (url) , target) ; 

else 

win = winobj .open ( rmi_xlateURL (url) , target, rmi_xlateWinOpt (options) ); 
if (win != null) win. opener = self; 
return win; 

} 

* Open a window (using a default window object) 
******************************************** 

function rmi_window_open (url , target, options) 

{ 

//alert (url) ; 
//alert (target ) ,- 
//alert (opt ions ) ; 

var win; 

if (arguments . length == 1) 

win = window . open (rmi_xlateURL (url) ) ; 
else if (arguments . length == 2) 

win = window. open (rmi_xlateURL (url) , target); 

else 

win = window . open (rmi_xlateURL (url) , target, rmi_xlateWinOpt (options ) ); 
if (win != null) win. opener = self; 
return win; 

} 

function rmi_wi ndow_open_s elf (url) 

{ 

return window . open (rmi_xlateURL (url ) , "_self n ); 

} 

* Get ' top 1 window for RMI 

****************************************** 

function rmi__getTop (win) 

{ 

if ( rmi_Frame Wrappe rMode ) 

mode 

return win; 
else if ( top . frames . length > 1) 

mode 

return (win == top) ? top . _rmi_bot torn : win; 

else 

mode 

return win; 

} 

* Translate a target URL, then replace the document in 

* the target window 

*************************************** 



// frame wrapper 
/ / old frame 
// non- frame 
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function rmi_replace (win, url) 

{ 

if (win == "") win = self; 
if (rmi_FrameWrapperMode) 

{ 

if (win == top) 

win . location . replace {rmi_xlateURL (url ) + rmi_Vars) ; 

else 

win . location . replace (rmi_xlateURL (url ) ) ; 

} 

else if (top . frames . length > 1) // old frame mode 

{ 

if (win == top) 

. top ._rmi__bottom . location . replace (rmi_xlateURL (url ) ) ; 
else 

win . location . replace (rmi_xlateURL (url ) ) ; 

} 

else // non-frame mode 

win . location . replace (rmi_xlateURL (url ) ) ; 



} 



%e 

* Handle location setting for different modes after JS translation 

ru 

%j * <Sample translation> 

l^j * From: window . top . parent . location . href = url; 

~~ * To : rmi_setLocation ( "window . top" , " . parent . location . href " , 

rmi_xlateURL (url) , window . top . parent ) ; 
************************************************************/ 

„ function rmi setLocation ( si , s2 , url, win) 

™ ( 

var frameName = ""; 
D var newUrl = url; 

6 

if (rmi_FrameWrapperMode) 
{ 

//@@ if (rmi_startsWith (s2 , " . location")) 
if ( win == top ) 

{ 

frameName = " " ; 

newUrl = rmi_appendToUrl (url , rmi_Vars) ; 

} 

// Handle topmost frames 

var aWin = eval(sl); 

var array = s2 . split (".") ; 

var head = rmi_t rim (array [0] ) ; 

if (aWin == top && rmi_startsWith (head, "frames" )) 

{ 

var iO = head . indexOf ( " [ " ) ; 
var il = head. indexOf ("] ") ; 

var num - 0 ; 

num = head . substring ( iO+1 , il) ; 
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if (num >= 0) // If a valid frame number, increment it 

{ 

array [0] = "frames [" + (++num) + " ] " ; 
s2 = array . join ( 11 .") ; 

} 

} 

} 

else // old mode 

{ 

frameName = " . _rmi_bottom" ; 
newUrl = url 

} 

var code = si + frameName + " . " + s2 + " = \ " M + newUrl + "\";"; 
eval (code) ; 

if ( rmi_JsDebug . indexOf ( " , rmi_setLocat ion, " ) != -1) 

alert ( "rmi_setLocation : \n M + "url: " + url + "\n" + "code: " + code + 

M \n») ; 
} 

/**********★***★******************** 

* Xlate a String 

/* 

* * If it returns a value different from str 

* rmi_xlate will return new value. 

* else (i.e. rmi_xlate_merchant returns str) 

* rmi_xlate will do regular processing 
*/ 

function rmi_xlate_merchant ( str) 

{ 

// alert ( "merchant dummy function" ) ; 
return str; 

} 



function rmi_xlate (pStr ) 
{ 

var xlatedStr = ""/ 

var iSearch, iFrame, ilmg, length, startLoc, endLoc ; 

var offsetl, offset2, head, src, tail; 

var str = "" + pStr; // to string to be sure 

var lowercaseStr = s tr . toLowerCase ( ) ; 

// 

// invoke merchant specific stuff 
// 

xlatedStr = rmi_xlate_merchant (str ) ; 
if (xlatedStr != str) return xlatedStr; 

var parseStr = rmi_parseloop ( str ) ; 
if (parseStr != str) return parseStr; 
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// debugging block begin /////////////////////////////////// 

//xlatedStr = rmi_xlate_src_href (str) ; 

//if (parseStr != str) { 

// if (parseStr != xlatedStr) { 

// alert ( "parseStr " + parseStr + "\n xlatedStr » + xlatedStr); 
// } 

// return parseStr; 

//} 

// debugging block end / 1 1 1 / 1 1/ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 / 1 1 1 1 1 
return (str) ; 



function rmi_parseloop ( str ) 
{ 

var tagStr = str; 
var newStr = " " ; 

while (1) { 

var left, tag, right, nexttag; 
var 1, r; 

1 = tagStr . indexOf ("<") ; 

// if there is no "<" sign, return tagStr 
if (1 == -1) { 

newStr = newStr + tagStr; 

//alert ("no < found in " + tagStr + "\n" + newStr); 
break ; 

} 

left = tagStr . substring ( 0 , 1 + 1); 
r = tagStr. indexOf ("> n ) ; 

// if there is no ">" sign, return tagStr 
if (r == -1) { 

newStr = newStr + tagStr; 

//alert ("NO > found in » + tagStr + "\n" + newStr) ; 
break ; 

} 

tag = tagStr . substring ( 1+1 , r) ; 

nexttag = tagStr . indexOf ("<" , r) ; 

if (r < 1) { 

// if " ... > .. <...>", then add up to < and 
// then loop back 
newStr = newStr + left; 

tagStr = tagStr . substring ( 1 + 1 , tagStr . length) ,* 
} else if (nexttag == -1) { 

right = tagStr . substring (r, tagStr . length) ; 

tag = rmi_xlate_src_href ( tag) ; 
tag = rmi_xlate_f orm_action ( tag) ; 

tag = rmi_xlate_f rameset (tag) ; // do frameset last because 

extra tags are added 

if (rmi_FrameWrapperMode) 
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tag = rmi_doTarget InFrameWrapperMode ( tag) ; 

else 

tag = rmi_xlate_target (tag) ; 

newStr = newStr + left + tag + right; 
break; 
} else { 

right = tagStr . subs tring (r , nexttag) ; 

tag = rmi_xlate_src_href ( tag) ; 
tag = rmi_xlate_f orm_action ( tag) ; 

tag = rmi_xlate_f rameset ( tag) ; // do frameset last because 

extra tags are added 

if (rmi_FrameWrapperMode) 

tag = rmi_doTarget InFrameWrapperMode ( tag) ; 

else 

tag = rmi_xlate_target ( tag) ; 

newStr = newStr + left + tag + right; 

tagStr = tagStr . substring (nexttag , tagStr . length) ; 

// newStr = newStr + "_ M + left + "#" + tag + "#" + right + "_" ; 
/ / loop back 

} 

} 



if (str != "" && newStr == "") { 
newStr = str; 

} 



if (rmi_JsDebug . indexOf ( " , rmi_parseloop , " ) != -1) 

alert ( "parseloop : \n" + "old: " + str + "\n" + "new: " + newStr); 



// debugging block begin /////////////////////////////////// 

//var lowercaseStr = str . toLowerCase ( ) ; 

//if ( (lowercaseStr. indexOf ("src=") != -1 || 

// lowercaseStr . indexOf ( "href =" ) != -1) 

// && lowercaseStr . indexOf (" image ") == -1) 

// { 

// alert ("orig " + str + "\npars " + newStr); 

// } 

// debugging block end 1 1/ 1 1 / 1 1 1 1 1 1 1 1 1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
return newStr; 

} 

function rmi_xlate_src_href (str) 

{ 

var newStr = ""; 

var iSearch, iFrame, ilmg, length, startLoc, endLoc ; 

var offsetl, offset2, head, src, tail; 

var lowercaseStr = str . toLowerCase ( ) ; 
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iSearch = lowercaseStr . indexOf ( " src=" ) ; 
if (iSearch != -1) { 

length = 4; // length of "src=" 

// should not contain IMAGE tag 

ilmg = lowercaseStr . indexOf ( " image "); 

if (ilmg < iSearch && ilmg > -1) return str; 

// should not contain IMG tag 

ilmg = lowercaseStr . indexOf ( " img "); 

if (ilmg < iSearch && ilmg > -1) return str; 

iFrame - lowercaseStr . indexOf (" frame ") ; 
if (iFrame == -1) return str; 

} else { 

iSearch = lowercaseStr . indexOf ( "href =") ; 
if (iSearch -= -1) return str; 



} 



// alert ( "found href in " + str); 
length =5; // length of "href=" 



startLoc = iSearch + length; 

head = str . substring ( 0 , startLoc); 

offsetl = lowercaseStr . indexOf ( " " , startLoc); 
if (offsetl == -1) { 

offset2 = lowercaseStr . indexOf ( " > " , startLoc); 
if (offset2 == -1) { 

endLoc = str. length; 
} else { 

endLoc = offset2; 

} 

} else { 

endLoc = offsetl; 

} 

src = str . substring ( startLoc , endLoc) ; 
tail = str . substring (endLoc, str. length); 

// Ignore 'javascript:*' & RETURN original string 

if '( rmi_startsWith ( src . toLowerCase ( ) , "'javascript:") ) return (str); 
if ( rmi_startsWith ( src . toLowerCase ( ) , "javascript:") ) return (str) ; 

var saved_urlTarget = rmi_UrlTarget ; // saved to be restored 

later 

if (head . toLowerCase (). indexOf (" frame " ) != -1) 

rmi_UrlTarget = " " ; // <frame> will not be on 

top 

newStr = head + rmi_xlateURL ( src ) + tail; 

rmi_UrlTarget = saved_url Target ; // restore it 
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if ( rmi_JsDebug . indexOf ( " , rmi_xlate_src_href , " ) != -1) 

alert ("rmi_xlate_src_href\n" + "old: " + str + " \n" + "new: " + newStr) 

return newStr ; 

} 

function rmi_xlate_f orm_act ion (str) 

{ 

var lowercaseStr = str . toLowerCase ( ) ; 
var iForm = lowercaseStr . indexOf ( " form" ) ; 



if (iForm == -1) return str; 
// alert (str) ; 

var iSearch = lowercaseStr . indexOf ( "action= " ) ; 
var length =7; // length of r, action=" 
if (iSearch == -1) { 

iSearch = lowercaseStr . indexOf ( "action = "); 

length = 9; // one more than length of string, to allow for extra space 

} 

if (iSearch == -1) return str; 



var startLoc, endLoc , offsetl, offset2, head, src, tail; 



startLoc = iSearch + length; 

head = str . substring ( 0 , startLoc) ; 

offsetl = lowercaseStr . indexOf ( " " , startLoc) ; 
if (offsetl == -1) { 

offset2 = lowercaseStr . indexOf ( " > " , startLoc); 
if (offset2 -1) { 

endLoc = str. length; 
} else { 

endLoc = offset2; 

} 

} else { 

endLoc = offsetl; 

} 

src = str . substring ( startLoc , endLoc) ; 
tail = str . substring (endLoc , str. length); 

newStr = head + rmi_xlateURL ( src ) + tail; 

// alert (newStr) ; 

return newStr; 

} 

/************************************** 

* Write out the 'frame wrapper' 
★************************************** 

function rmi_writeFrameWrapper ( ) 

{ 

document .write (rmi_FrameWrapperText ) ; 

} 



17 



/************************************************************ 

* Handle a frameset tag (for top window in FrameWrapperMode ONLY) 
********************************** 

function rmi_xlate__f rameset ( tag) 

{ 

if {! rmi_FrameWrapperMode) return tag; 
if (self !- top) return tag; 

var lowercaseStr = tag . toLowerCase ( ) ; 

var iOpenTag = lowercaseStr . indexOf (" frameset "); 

var iClosingTag = lowercaseStr . indexOf ( " /frameset " ) ; 

if (iOpenTag == -1 && iClosingTag == -1) return tag; // not frameset tag 

if (iClosingTag >= 0) // see </frameset> 

{ 

rmi_FramesetTagCounter ; 

// add Yahoo's </frameset> after the last frameset 

if (rmi_FramesetTagCounter == 0) 
ret = tag + " >/n</ frameset " ; 

else 

ret = tag; 

} 

else // see <frameset> 

{ 

// add Yahoo's <frameset> before the 1st frameset 

if ( rmi_FramesetTagCounter == 0) 

ret = rmi_FrameWrapper + "\n<" + tag; 

else 

ret = tag; 



} 



} 



++ rmi_FramesetTagCounter ; // count <frameset> tag 



if (rmi_JsDebug . indexOf ( " , rmi_xlate_f rameset , " ) ! = - 1) 

alert ( "rmi_xlate_f rameset : \n" + "old: " + tag + "\n" + "new: " + ret) ; 

return (ret) ; 



function rmi_xlate_target (str) 

{ 

var newStr = " 11 ; 

var iSearch, iFrame, ilmg, length, startLoc, endLoc ; 

var offsetl, offset2, head, src, tail; 

var lowercaseStr = str . toLowerCase ( ) ; 

var loci, loc2 , loc3 ; 

if (rmi_merchant_f rames != "yes") { 

// alert ( "merchant frames not yes"); 
return str; 

} 
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loci = lowercaseStr . indexOf ( "target=\ "_top\ "") ; 
loc2 = lowercaseStr . indexOf ( " target=_top" ) ; 
loc3 = lowercaseStr . indexOf ( " target= '_top ' " ) ; 

if (loci != -1) { 
iSearch = loci; 

length = 13; // length of target= "_top' 

} else if (loc2 != -1) { 
iSearch = loc2 ; 

length = 11; // length of target=_top 

} else if (loc3 != -1) { 
iSearch = loc3; 

length = 13; // length of targets 1 _top 1 

} else { 

return str; 

} 

startLoc = iSearch; 
_^ endLoc = startLoc + length; 

head = str . substring (0 , startLoc); 
yj src = " target=\ "_rmi_bottom\ " " ; 

yl tail - str . substring (endLoc , str. length); 

o 

rd newStr = head + src + tail; 

Si 
U 



// alert ("head " + head + "\nsrc= " + src + "\ntail " + tail) ; 
// alert ("str= " + str + "\nnew= " + newStr) ; 



a 
ru 

^0 h 



return newStr; 



p * Get a attribute value in a tag 

function rmi_getTagAt tribute (tag, key) 

{ 

var loci = tag . toLowerCase ( ) . indexOf (key) ; 

var loc2 = tag . indexOf ( , loci) + 1; // plus 1 for "=" 

var first = loc2 ; 

var last = tag. length; 

if (loci == -1) return 

var whitespace_trimmed = false; 
for (var i=loc2; i<tag . length ; ++i) 

{ 

var aChar = tag . charAt ( i) ; 

if (aChar != 1 ' && ! whitespace_trimmed) 

{ 

first = i; 

whitespace_trimmed = true; 

} 



if (aChar == • ' ) 
{ 
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last=i ; 

if (whitespace_trimmed) break 



} 



if (first == -1) 
retTag = " " ; 

else 

retTag = tag . subs tring ( first , last); 
if ( rmi JsDebug . indexOf ( " , rmi getTagAt tribute , " ) != -1) 

{ 



var msg = "key 
msg += "old 
msg += "ret 



} 



" + key + "\n" / 
" + tag + "\n" ; 
" + retTag + "\n" ; 
msg += "first: " + first + "\n" ; 
msg += "last: " + last + "\n" ; 
alert ( ,f rmi_getTagAt tribute : \n" + msg); 

} 

return retTag; 



* Set a new attribute value in a tag 
***********************************************^ 

function rmi_setTagAt tribute ( tag, key, newval) 

{ 

var loci = tag. toLowerCase () . indexOf (key) ; 

var loc2 = tag . indexOf ("=" , loci) +1; // plus 1 for "=" 

var first = loc2 ; 

var last = tag. length; 

if (loci == -1) return tag; 

var whitespace_trimmed = false; 
for (var i=loc2; i<tag . length; ++i) 

{ 

var aChar = tag . charAt ( i ) ; 

if (aChar != ' • ! whi tespace_trimmed) 

{ 

first = i; 

whitespace_trimmed = true; 

} 



} 



if (aChar == 1 ' ) 
{ 

last=i ; 

if (whitespace_trimmed) break 

} 



if (first == -1) 
retTag = tag; 

else 
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retTag = tag . substring ( 0 , first) + newval + tag . subs tring ( last , 
tag . length) ,* 

if (rmi__JsDebug . indexOf ( " , rmi_setTagAt tribute , " ) != -1) 

{ 

var msg = "key: " + key + " \n" / 

msg += "newval: " + newval + "\n" ; 

msg += "old: " + tag + "\n"; 

msg += "new: " + retTag + "\n"; 
alert ( "rmi — setTagAttribute : \n" + msg); 

} 



return retTag ; 



* Handle the target within a tag in a frame wrapper mode 
********************************* 

function rmi_doTarget InFrameWrapperMode (tagStr) 

{ 

if ( ! rmi_FrameWrapperMode ) return tagStr; 
var retTag = tagStr; 

// ignore frames (will not be on top) 

if (rmi_startsWith (tagStr . toLowerCase () , "frame")) return retTag; 

if (rmi_Url Target == "_top") // onTop & wrapper mode - force to encode 

ALL 

{ 

retTag = rmi_encodeTarget ( tagStr , "href", true) ; 
retTag = rmi_encodeTarget (retTag, "action", true); 

} 

else // encode only if target==_top 

{ 

retTag = rmi_encodeTarget (tagStr , "href", false); 
retTag = rmi_encodeTarget (retTag, "action", false); 

} 

if (rmi_JsDebug . indexOf (", rmi_doTarget InFrameWrapperMode ," ) != -1) 

alert ( "rmi_doTarget InFrameWrapperMode : \n" + "old: " + tagStr + "\n" + 
"new: " + retTag) ; 

return retTag ; 

} 

* Encode a target into a URL within a tag 
***************************************** 

function rmi_encodeTarget ( tagStr , key, force) 

{ 

var retTag = tagStr; 



var oldUrl = rmi_getTagAttribute (tagStr , key) ; 
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gif) 



if ( rmi_endsExactlyWith (oldUrl , rmi_Vars) ) // already encoded 

return retTag 

if (! rmi_startswith (oldUrl , rmi_ProxyURL) && 

! rmi_startsWith (oldUrl , rmi_SecureProxyURL) ) 

return retTag // not translated (e.g. 

if (force) // force to rewrite 

{ 

retTag = rmi_setTagAttribute ( tagStr , key, oldUrl + rmi_Vars) ; 

} 

else 

{ 

// If target==_top 

var targetVal = rmi_getTagAt tribute (tagStr , "target"); 
targetVal = rmi_trimQuotes (targetVal) ; 

if (targetVal == "_top n ) 
{ 

retTag = rmi_setTagAttribute (tagStr , key, oldUrl + rmi_Vars); 

} 

} 

if ( rmi_JsDebug . indexOf ( " , rmi_encodeTarget , " ) ! = - 1 ) 

alert ( "rmi_encodeTarget\n" + "old: " + tagStr + "\n" + "new: " + 

retTag) ; 

return retTag; 

} 

* Append a string to a URL if no such string at the end yet 
function rmi_appendToUrl (url , str) 

{ 

var urlStr = " " + url; 
var ret; 

if ( rmi_endsExactlyWith (urlStr , str) ) //See 
/rmivars%3f ... 

ret = urlStr; 

else if ( rmi_endsExactlyWith (urlStr , unescape ( str ) ) ) // See 

/rmivars? . . . 

{ 

var array = urlStr . split (unescape ( str )) ; 
ret = array [0] + str; 

} 

else 

ret - urlStr + str; 
return ret; 

} 

* Collapse a path (i.e. remove parts of a path like "dir/..") 
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function pathCollapse (path) 
{ 

var slist = path . split ( "/"J ; 
var stack = new Array ( ) ; 
var counter = 0; 

for (var i = 1; i < slist . length; ++i) 

{ 

var item = slist [i] ; 

if (item ! = " . . " ) 

stack [counter++] = item; 
else if (counter > 0) 

- -counter ; 

} 

stack. length = counter; 

//alert ( "mpath " + path + "\nmpath " + "/" + stack . join ("/")) ; 
return ("/" + stack. join ("/")) ; 

} 

* Translate a string, then do eval () . 
function rmi_eval (code) 
return eval (code) ; 



******************************** 

* This function will be overriden at run time if necessary 
*********************^ 

unction rmi_xj s (code) 



return code; 



* Translate a string, then do setTimeoutO . 
*********************************** 

unction rmi_setTimeout (code , msec) 
return setTimeout (code , msec) ; 

/****************★***★***********★★***★** 

* Get RMI cookies 

*************************************** 
function rmi_getCookie (cookie) 

{ 

// alert ( "rmi_getCookie : \n M + "cookies: " + cookie + " \nrmi_cookies : " + 
rmi_CurrentCookies ) ; 

if (typeof rmi_CurrentCookies == "undefined") 
return " " ; 
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else 

return rmi_CurrentCookies ; 

} 

/************************************************************ 

* Set RMI cookies 

************************************************************/ 
function rmi_setCookie (cookieLHS , cookieRHS) 

{ 

// Set RMI cookie @ the server side 

var serverCookie = rmi_xlateServerCookie ( cookieRHS ) ; 
if (serverCookie == "") return ; 

var newCookieTail = M path=/rmi; domain= M + rmi_CookieDomain ; 
var newCookie = "rmiCookie " + (new Date ( ) ) . getTimeO + " = " + 
escape (serverCookie) + "; " + newCookieTail; 

document . cookie = newCookie; 

// Set rmi_CurrentCookies @ the client side 

var clientCookie = rmi_xlateClientCookie ( cookieRHS ); 
if (clientCookie == ! ' " ) return; 

if (typeof rmi_CurrentCookies == "undefined") 
rmi_CurrentCookies = clientCookie ,- 

else 

rmi_CurrentCookies ";" + clientCookie; 

} 

* Verify cookie's domain (before setting the cookie) 
********************************************** 

function rmi_verif yCookieDomain (domain) 

{ 

var hostname = rmi_getOriginal (window . location , 'hostname'); 

if (rmi_endsExactlyWith (hostname . toLowerCase ( ) , domain . toLowerCase () ) ) 
return true; 

else 

return false; 

} 

/************************************************************ 

* Parse a cookie string, returns a new client cookie 

* (for browsers) without path, domain, expires, & secure fields. 
************************************************************ i 

function rmi_xlateClientCookie (cookieStr) 

{ 

var list = cookieStr . split (";") ; 
var ret = " " ; 

for (var i - 0; i < list. length; ++i) 

{ 

// NOTE: array's length > 2 if there are more than 2 '=' 



24 



# 



} 



var array = list [i] . split ( " = " ) ; 

if (array . length < 1) continue; 

var key = rmi_trim (array [0] ). toLowerCase () ; 

// Verify the cookie domain if there 

if (key == "domain") 

{ 

var domainVal = rmi_t rim (array [1] ) . toLowerCase ( ) ; 
if ( rmi_verif yCookieDomain (domainVal ) ) 

{ 

continue ; II OK 

} 

else 
{ 

ret = " " ; 
break; 

} 

} 

if (key == "path" ) continue ; 
if (key == "expires") continue; 
if (key == "secure") continue; 

if (i != 0) ret += 
ret += array . j oin ("=" ) 

} 

return ret; 



* Parse a cookie string, returns a new server cookie 

* (for rmi proxy server) with path & domain (if not there originally) 
★*****************************^ 

function rmi_xlateServerCookie (cookieStr) 

{ 

var list = cookieStr . split (";") ; 

var ret = " " ; 

var hasDomain = false; 

var hasPath = false; 

for (var i = 0; i < list. length; ++i) 

{ 

// NOTE: array's length > 2 if there are more than 2 

var array = list [i] . split (" = ") ; 

if (array . length < 1) continue; 

var key = rmi_trim (array [0 ]). toLowerCase () ; 

if (key == "domain") 

{ 

hasDomain = true; 
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var domainVal = rmi_t rim (array [1] ). toLowerCase () ; 
if ( ! rmi_verif yCookieDomain (domainVal ) ) 

return " " ; // BAD domain - RETURN 

u ii 

} 

if (key == "path") hasPath = true; 

if (i ! = 0) ret += " ; " 
ret += array . join ( ) 

} 

if (! hasDomain) ret += "; domain=" + rmi_Hostname ; 
if (! hasPath) ret += "; path=" + rmi_Pathname ; 

return ret; 

} 

//.--> 
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